www.gusucode.com > 溷沌分析工具箱 - OpenTSTOOL1.11 > 混沌分析工具箱 - OpenTSTOOL1.11\tstoolbox\@signal\power.m
function rs = power(s) %tstoolbox/@signal/power % Syntax: % * power(s) % % Calculate squared magnitude of each sample. % % Copyright 1997-2001 DPI Goettingen, License http://www.physik3.gwdg.de/tstool/gpl.txt error(nargchk(1,1, nargin)); x = data(s); rs = signal(core(x .* conj(x)), s); rs = setyunit(rs, yunit(s)^2); rs = addhistory(rs, ['Squared magnitude']); rs = addcommandlines(rs, 's = power(s');